0 GOTO50
1 HB=PEEK(56):LB=PEEK(55)
2 HB=HB-1:LB=LB-162:IFLB<0THENLB=LB+256
3 POKE56,HB:POKE52,HB:POKE55,LB:POKE51,LB:ML=256*HB+LB
4 FORN=0TO417:READA:POKEML+N,A:NEXT
5 POKEML+22,LB:POKEML+23,HB:OW=ML+5:WW=ML+9:CW=ML+13
6 W$="OPEN  SYS"+STR$(OW)+"\WRITE SYS"+STR$(WW)+"\CLOSE SYS"+STR$(CW)
8 W%=18:H%=5:R%=8:C%=2
9 RETURN
10 DATA87,215,200,210,195,169,0,240,6,169,64,208,2,169,128,133,94,162,4,160,0,189,0
11 DATA28,133,87,165,46,133,72,165,45,133,71,165,72,197,48,208,10,165,71,197,47,208
12 DATA4,169,0,240,33,165,87,209,71,208,8,169,128,200,209,71,240,12,136,165,71,24,105
13 DATA7,144,217,230,72,208,213,224,0,240,20,200,200,177,71,224,3,176,10,201,3,176,6
14 DATA169,3,224,0,240,2,149,87,202,16,173,166,89,224,13,176,15,202,202,134,92,166,89
15 DATA169,0,24,101,88,201,96,144,3,96,240,139,202,208,243,133,96,166,88,202,202,202
16 DATA134,93,169,22,56,229,88,144,234,197,91,144,230,133,95,160,0,166,90,138,24,101
17 DATA89,201,24,176,216,165,91,166,90,240,9,24,105,22,144,1,200,202,208,247,133,38
18 DATA133,40,152,24,109,136,2,133,39,152,24,105,148,44,2,144,16,3,24,105,2,133,41,36
19 DATA94,48,37,112,37,162,0,160,0,165,88,133,42,177,38,157,52,3,177,40,157,152,3,232
20 DATA200,198,42,208,240,198,89,240,143,152,24,101,95,168,208,225,208,117,160,4,162
21 DATA3,177,71,149,251,136,202,208,248,136,169,112,157,161,2,232,165,93,133,42,169
22 DATA64,157,161,2,232,198,42,16,248,192,0,208,75,169,110,157,161,2,232,169,93,157
23 DATA161,2,232,165,93,133,42,177,253,201,64,144,6,201,96,176,2,233,63,198,252,16,4
24 DATA230,252,169,32,201,28,208,8,136,165,42,208,243,200,208,242,157,161,2,232,200
25 DATA198,42,16,215,169,93,157,161,2,232,198,92,208,195,169,109,157,161,2,232,208,163
26 DATA169,125,157,161,2,162,0,160,0,165,88,133,42,36,94,16,14,189,52,3,145,38,189,152
27 DATA3,145,40,232,200,208,12,189,161,2,145,38,173,134,2,145,40,232,200,198,42,208
28 DATA222,198,89,208,1,96,152,24,101,95,168,24,144,205
50 PRINT"[147]":POKE36879,232
60 PRINT"[145][158]                      "
70 FORA=1TO17:PRINT"[158][145]    [146][144]  WINDOW VIC  [158]    ":NEXT
75 PRINTTAB(3)"BY THOMAS BUNKER":PRINTTAB(4)"& AHOY! STAFF"
80 GOSUB 1:POKE646,2
90 SYS OW:FORD=1TO2000:NEXT
100 SYS CW:FORD=1TO2000:NEXT:GOTO90